﻿

Public Class MisTurnos
    Inherits System.Web.UI.Page


    Private Sub MisTurnos_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim imagfondo As Image = Page.Master.FindControl("Image2")
        If Not Page.IsPostBack Then
            FG.culturaPaginas()

            BuscarDatos()


            'acomodo la image de fondo
            imagfondo.Height = 370
        End If

    End Sub

    Private Sub gvTurnos_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles gvTurnos.RowDeleting
        Dim row As GridViewRow = gvTurnos.Rows(e.RowIndex)
        lblBorrar.Text = IIf(row.Cells(0).Text = "&nbsp;", 0, row.Cells(0).Text)
        lblFechaHoraBorrar.Text = IIf(row.Cells(1).Text = "&nbsp;", 0, row.Cells(1).Text)
        lblEspecialidadBorrar.Text = IIf(row.Cells(2).Text = "&nbsp;", 0, row.Cells(2).Text)
        lblNombreMedicoBorrar.Text = IIf(row.Cells(3).Text = "&nbsp;", 0, row.Cells(3).Text)

        MuestraCartelDeguardar("Desea eliminar el turno asignado el día: " + lblFechaHoraBorrar.Text + " con el profesional: " + _
                                lblNombreMedicoBorrar.Text + " OK / CANCELAR?", lblMensajeConfirmacion)

        popupConfirmacion.Show()

    End Sub

    Protected Sub Btn_Ok_Confirmacion_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Btn_Ok_Confirmacion.Click
        Dim destinatario As String, asunto As String, mensaje As String

        If borrarTurnos(lblBorrar.Text) Then

            asunto = "Turno borrado"
            destinatario = PersLOgueada.Dev_mail
            mensaje = "<html><body>Turno borrado para el paciente: <b>" + PersLOgueada.Dev_ApellidoYnombre + _
                          "<b><br/>Para el dia: " + lblFechaHoraBorrar.Text + "<br/>Profesional: " + lblNombreMedicoBorrar.Text _
                          + "<br/>Especialidad: " + lblEspecialidadBorrar.Text + "</body></html>" + _
                            "<br/><pre/><b>El equipo de SCHC.<pre/></b></body></html>"

            MuestraCartel(FG.EnviarMail(destinatario, asunto, mensaje), lblMensajeRegistro)

            popupConfirmacion.Hide()
            BuscarDatos()
        Else
            MuestraCartel("Error no se puedo eliminar el turno con ID: " + lblBorrar.Text, lblMensajeConfirmacion)
        End If

    End Sub

    Protected Sub btn_Cancel_Confirmacion_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btn_Cancel_Confirmacion.Click
        SacaCartelDeAViso(lblBorrar)
        SacaCartelDeAViso(lblMensajeConfirmacion)
        popupConfirmacion.Hide()
    End Sub

    Protected Sub BuscarDatos()
        Dim param(0) As ADODB.Parameter
        Dim Rs As ADODB.Recordset

        param(0) = New ADODB.Parameter
        param(0).Name = "@DNI"
        param(0).Type = ADODB.DataTypeEnum.adVarChar
        param(0).Direction = ADODB.ParameterDirectionEnum.adParamInput
        param(0).Value = PersLOgueada.Dev_Dni
        param(0).Size = 10

        Rs = Datos.TraerTodos("traerTurnos_x_dni", param, "Ventanilla.aspx")
        If Rs.RecordCount <> 0 Then
            If lblMensajeRegistro.Text <> "No hay mail registrado para notitificar el proceso" Then
                SacaCartelDeAViso(lblMensajeRegistro)
            End If
            gvTurnos.DataSource = FG.cargaUnDataTable(Rs)
            gvTurnos.DataBind()
        Else
            FG.MuestraCartel("No hay turno para mostrar", lblMensajeRegistro)
            gvTurnos.DataSource = FG.cargaUnDataTable(Rs)
            gvTurnos.DataBind()
        End If
    End Sub

End Class